sub samcoupeline(txpo1 as uinteger,typo1 as ubyte,txpo2 as uinteger,typo2 as ubyte):
  asm
    end asm
  end sub
